<script>on mouseUpanswer "New Button, or New Handler?" with "Button" or "Handler" or "Cancel"if it is "Cancel" then exit mouseUpput it into whichToCreateput "" into priorUserLevelif the userlevel < 5 thenanswer "You should set your User Level to scripting. Shall I do it for you?" with "No" or "Yes"if it is "Yes" then put "5" into priorUserLevelset the userlevel to 5end ifif whichToCreate is "Button" thennewAboutButtonelsenewAboutHandlerend ifif priorUserLevel ≠ "" thenset the userlevel to priorUserLevelend ifend mouseUpon newAboutButtonlock screendoMenu "New Button"set the name of last cd btn to "About this stack..."set the rect of last cd btn to 229,127,315,174set the icon of last cd btn to "About Boxer"set the style of last cd btn to transparentset the autoHilite of last cd btn to trueput aboutScript(mouseUp) into newScriptset the script of last cd btn to newScriptchoose browse toolunlock screenanswer "Copy and paste button to target stack"end newAboutButtonon newAboutHandlerask "Name of handler that will invoke About Box:" with showAboutBoxif it is empty then exit newAboutHandlerlock screenshow cd fld handlerHolderput aboutScript (it) into cd fld handlerHolderselect text of cd fld handlerHolderdoMenu "Copy text"select emptyput empty into cd fld handlerHolderhide cd fld handlerHolderunlock screenanswer "Handler is in the clipboard. Go to target stack script and paste. Then, type ‘" & it && "’ into the message box and press return to try it out."end newAboutHandler-- ScriptEdit™ Prefs:Monaco,9,45,19,470,595,418,418,50</script>
<script>on mouseUpvisual effect wipe right slowgo cd "About About"end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>24</id>
<text>Fill in the field below, to test and make the About Box.</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text>About BoxerVersion 1.0by David DruckerAmerica Online: DDRUCKER CompuServe: 76060,3104 AppleLink: DDRUCKERThis utility is Freeware.What did you expect for nothing?</text>
<script>on mouseUpvisual wipe left slowgo next cdend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>271</top>
<right>89</right>
<bottom>318</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27899</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About this stack...</name>
<script>on mouseUpput empty into answerStringput "About Boxer" & return after answerStringput "Version 1.0" & return after answerStringput " " & return after answerStringput "by David Drucker" & return after answerStringput " " & return after answerStringput "America Online: DDRUCKER" & return after answerStringput " CompuServe: 76060,3104" & return after answerStringput " AppleLink: DDRUCKER" & return after answerStringput " " & return after answerStringput " " & return after answerStringput "This utility is Freeware." & return after answerStringput "What did you expect for nothing?" & return after answerStringanswer answerStringend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>113</left>
<top>271</top>
<right>222</right>
<bottom>318</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5428</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Abouts from menus...</name>
<script>on mouseUplock screenset the visible of cd fld whatAboutMenus to not the visible of cd fld whatAboutMenusset the hilite of me to the visible of cd fld whatAboutMenusunlock screen with visual effect dissolveend mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,217,217,50</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>29</left>
<top>17</top>
<right>292</right>
<bottom>252</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>WhatAboutMenus</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style4">hat is this?</span><span class="style1"></span><span class="style3">About Boxer</span><span class="style1"> is a utility for creating quick (and not terribly flashy) ‘About...’ boxes for your stacks. It uses the several of the new features of HyperCard 2.0, particularly the automatic resizing of the dialog box brought up by the </span><span class="style3">Answer</span><span class="style1"> command.</span><span class="style4">So what's an About Box?</span><span class="style1">An </span><span class="style5">About Box</span><span class="style1"> is a dialog box that pops up in most Macintosh applications when you choose the “About (whatever)...” menu item. At the very least, it contains the programmer's name and possibly address, as well as Electronic and postal mail addresses, shareware fees and where to send them, and perhaps a few words of wit and/or wisdom.About Boxes can become quite baroque, and some even border on practical jokes. (Scott Watson’s ‘please don't click here’ icon, and the Farallon Computing's fake bomb box come to mind here).</span><span class="style3">About Boxer</span><span class="style1"> can’t do any of these, and you probably have your own ideas about bizarre and memorable about boxes. No, this little utility is for creating, and installing an About Box in your stacks with a minimum of fuss and effort. These About Boxes are executed entirely in HyperTalk (no XCMDs needed) and are completely self contained. You may attach them to a button, or send a message to bring them up. For an example of an About Box created with </span><span class="style3">About Boxer</span><span class="style1">, try out the button at the lower left, or select the menu item, </span><span class="style3">“About this stack...”</span><span class="style1"> under the Apple. The limits to About Boxes created with </span><span class="style3">About Boxer</span><span class="style1"> are the same as the answer command: one font (</span><span class="style11">Chicago</span><span class="style1">) size (</span><span class="style9">12 point</span><span class="style1">) and style (plain), left justified text (although you can sort of fudge other justifications), a reasonable limit of lines/characters), and no graphics. If you are interested in more elaborate About Boxes, check out the brilliant commercial product, </span><span class="style3">Dialoger</span><span class="style1"> by theResult software which is distributed by Heizer Software, or the powerful </span><span class="style3">ShowDialog</span><span class="style1"> from the late Jay Hogdon of Apple Computer, which may be found on many online services and the Boston Computer Society’s HyperCard Library.</span><span class="style3">About Boxer</span><span class="style1"> employs two of Dan Winkler's scripts, </span><span class="style7">quotelines</span><span class="style1"> and </span><span class="style7">writeScript</span><span class="style1"> from his book and diskette, </span><span class="style5">Cooking with HyperTalk</span><span class="style1">. They are in the stack script of this stack.For more information about using About boxes from menus, click on the button </span><span class="style3">“Abouts from menus...”</span><span class="style1"> below.That’s about all. Have fun.</span><span class="style7">2/4/91</span><span class="style1">David DruckerThe Boston Computer Society Macintosh Group(BCS•Mac)The MacStackGroup</span></text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text><span class="style4">bout...</span><span class="style9"> from a menu selection</span><span class="style1">The standard for bringing up an About Boxes in Macintosh Applications is when you choose the “About (whatever)...” menu item, which is usually located at the top of the Apple menu. To do this in HyperCard 2.0, use the following handler to set up the ‘ About...’ menu item:</span><span class="style7">on setUpaboutMenuItem set the name of menuItem 1 of menu Apple to "About this stack..." set the menuMessage of menuItem 1 of menu Apple to showAboutBox -- (or whatever message you choose)end setUpaboutMenuItem</span><span class="style1">This handler is used at </span><span class="style10">openStack</span><span class="style1">. Proper programming ettiquette suggests that you clean up the Apple menu when the user leaves the stack, requiring the following handler when the </span><span class="style10">closeStack</span><span class="style1"> message gets sent:</span><span class="style7">on setAboutToNormal set the name of menuItem 1 of menu Apple to "About HyperCard..." set the menuMessage of menuItem 1 of menu Apple to emptyend setAboutToNormal</span><span class="style1">Feel free to copy and paste these scripts.</span></text>
</content>
<name>About About</name>
<script>on closeCardset the scroll of cd fld whatisthis to 0set the scroll of cd fld whatAboutMenus to 0if the visible of cd fld whatAboutmenus is true then send mouseUp to cd btn "abouts from menus..."end closeCard-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,51,21,476,597,102,102,50</script>
</card>
card_2835.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Building Blocks/About Boxer/BMAP_4824.png){kind=link}
(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Building Blocks/About Boxer/PATs.png){kind=link}